perm filename EINIT.CMD[1,JMC]66 blob
sn#843014 filedate 1987-07-09 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 αβxsubjob↔αβxlattach↔ start up a subjob and take output in attach buffer
C00012 ENDMK
C⊗;
αβxsubjob⊗↔αβxlattach⊗↔⊗; start up a subjob and take output in attach buffer
αβ0αβxjf 8⊗↔⊗; preserves tabs in justifying paragraphs
αXDEFINE name⊗↔
αZTEMP1⊗↔
αβ⊗↓
αXDEFINE TEMP1⊗↔
αXEXECUTE EINIT.CMD[1,3](17)⊗↔
αZname⊗↔
αβ⊗↓
αXDEFINE del1⊗↔⊗; delete arbitrary file mentioned on current line
αidel αs]α αk⊗↔α⊗↔α=αβ⊗↓
αXDEFINE DEL⊗↔⊗; delete E format file mentioned on current line
αxpo⊗↔αxreadw⊗↔αxfiledelete⊗↔αhαβdαβ⊗↓
αXDEFINE dover⊗↔⊗; send file named on current line to dover
αcαeαidover αs]α αk⊗↔αi⊗↔kα⊗↔αβuαxsubjob⊗↔αβ2α=αβ2αβdαβ⊗↓
αXDEFINE rover⊗↔⊗; send file named on current line to rover
αcαeαirover αs]α αk⊗↔αi⊗↔kα⊗↔αβuαxsubjob⊗↔αβ2α=αβ2αβdαβ⊗↓
αXDEFINE boise⊗↔⊗; send file named on current line to boise
αcαeαiboise αs]α αk⊗↔αi⊗↔kα⊗↔αβuαxsubjob⊗↔αβ2α=αβ2αβdαβ⊗↓
αXDEFINE esp⊗↔⊗; send file named on current line to esp; prints it in fix40
αcαeαimaple αs]α αk⊗↔αi/font=fix40⊗↔kα⊗↔αβuαxsubjob⊗↔αβ2α=αβ2αβdαβ⊗↓
αXDEFINE maple⊗↔⊗; send file named on current line to esp; prints it in fix40
αcαeαimaple αs]α αk⊗↔αi/font=fix40⊗↔kα⊗↔αβuαxsubjob⊗↔αβ2α=αβ2αβdαβ⊗↓
αXDEFINE lathro⊗↔⊗; send file named on current line to lathrop; prints it in fix40
αcαeαilathrop αs]α αk⊗↔αi/font=fix40⊗↔kα⊗↔αβuαxsubjob⊗↔αβ2α=αβ2αβdαβ⊗↓
αXDEFINE ≡⊗↔⊗; enter pointed file in readwrite mode
αxpo⊗↔αxreadw⊗↔αβ⊗↓
αXDEFINE %⊗↔⊗; surround word with italics for TEX
}αb α αi{\it α⊗=αβ⊗↓
αXDEFINE ∩⊗↔⊗; take line back to file of files
αcαh⊗↔αeα↑⊗=⊗=αdαβ⊗↓
αXDEFINE MEM⊗↔⊗; standard start of memos
αβ⊗↔.require "memo.pub[let,jmc]" source;⊗↔.cb αβ⊗↓
αXDEFINE COM⊗↔⊗; For commenting out file name for pub memos
αi.<<α⊗=>>⊗↔αβ⊗↓
αXDEFINE AIL⊗↔⊗; standard start of AI letter
αβ⊗↔.require "let.pub[let,jmc]" source;⊗↔
∂AIL αβ⊗↓
αXDEFINE CSL⊗↔⊗; standard start of CS letter
αβ⊗↔.require "let.pub[let,jmc]" source;⊗↔
∂CSL αβ⊗↓
αxdefine msg⊗↔⊗; switching to the message file
⊗↔αεmsg.msg[1,jmc]/∞p⊗↔αβ⊗↓
αxdefine jnk⊗↔⊗; switching to the junk message file
⊗↔αεmsg.msg[jnk,jmc]/∞p⊗↔αβ⊗↓
αxdefine fil⊗↔⊗; switching to the file of files last page
⊗↔αεfiles[let,jmc]/∞p⊗↔αβ⊗↓
αxdefine fil1⊗↔⊗; switching to the file of files first page
⊗↔αεfiles[let,jmc]/1p⊗↔αβ⊗↓
αxdefine cal⊗↔⊗; switching to the calendar file
⊗↔αεcal[1,jmc]/∞p⊗↔αβ⊗↓
αxdefine ∪⊗↔⊗; switching to the message file
αεmsg.msg[1,jmc]/∞p⊗↔αβ⊗↓
αxdefine $⊗↔⊗; putting in an equation number. execute macro after typing symbol
αi α⊗Bαb αi({eq αs αdβ}β)αβ⊗↓
αXDEFINE TASK⊗↔⊗; puts attach buffer in TASKS file
αβεtasks[1,jmc]/2p/∞l⊗↔αβeβ⊗↔αhαβ⊗↓
αxdefine pho⊗↔⊗; switching to the phon file
αβεphon[1,jmc]/1p⊗↔αβ⊗↓
αxdefine phon⊗↔⊗; switching to the phon file
αβεphon[1,jmc]/1p⊗↔αβ⊗↓
αxdefine adr⊗↔⊗; putting my address in file
⊗↔John McCarthy⊗↔Computer Science Department
⊗↔Stanford University⊗↔Stanford, CA 94305⊗↔αβ⊗↓
αxdefine new⊗↔⊗; starting a file, gets updated each quarter
α⊗↔αs⊗=αi[e87,jmc]α⊗↔αxpo/c⊗↔αhαcαhαe⊗↔αβ⊗↔αβ⊗↓
αxdefine ekl⊗↔⊗; starting up an ekl
αxsl dsk:ekl.dmp[1,3]⊗↔αxlfile⊗↔αβ⊗↓
αxdefine lisp⊗↔⊗; starting up a lisp
αxsl (lisp)⊗↔αxlpend⊗↔αβ⊗↓
αXDEFINE L⊗↔⊗; Run lisp functions. Needs lines ;bfun ;efun ;end.
⊗↔αβlαβf;end⊗↔⊗↔αβ9αβ9αβ9αβdαβlαβf;bfun⊗↔αβf;efunα=αβf;end⊗↔αβjαβ⊗↓
αxdefine phil⊗↔⊗; mailing to "phil-sci%oz"%mc mails the rest of the page
α∞αxmail "phil-sci%oz"%mc/su⊗↔αβ⊗↓
αxdefine dov⊗↔⊗; send the file mentioned in the current line to the dover
αcαeαidover αs⊗=αk⊗↔α⊗↔α=αβdαβ⊗↓
αxdefine 1987⊗↔⊗; switching to the 1987 file
αβλ1987.xgp[up,doc]/3p⊗↔αβ⊗↓
αxdefine 1988⊗↔⊗; switching to the 1988 file
αβλ1988.xgp[up,doc]/3p⊗↔αβ⊗↓
αxdefine 1986⊗↔⊗; switching to the 1986 file
αβλ1986.xgp[up,doc]/3p⊗↔αβ⊗↓
αxdefine 1985⊗↔⊗; switching to the 1985 file
αβλ1985.xgp[up,doc]/3p⊗↔αβ⊗↓
αXDEFINE REcon⊗↔⊗; reconnecting a maclisp job after re-entering e
α-αxsubjob⊗↔αxrec⊗↔αβ⊗↓
αXDEFINE MAIL/su⊗↔⊗; mails rest of page. requires address line and subject line
αβ∞αβxmail/su⊗↔αβ⊗↓
αXDEFINE VOTE⊗↔⊗; cleans up line of numbers with one comma for totalling votes
αs,αdαs αk⊗↔αb αl⊗↔⊗↔αβ⊗↓
αXDEFINE RELISP⊗↔⊗; reconnects to maclisp job after re-entry to E
α-αxsubjob⊗↔αxrec⊗↔αβ⊗↓
αXDEFINE MYPHON⊗↔
(work: 415 497-4430) (home: 857-0672)αβ⊗↓
αXDEFINE C⊗↔⊗; circumscription
circumscriptionαβ⊗↓
αXDEFINE E⊗↔⊗; writing a reference to an equation
({eq })αb}αiαβ⊗↓
αXDEFINE BIO⊗↔⊗; switching to my biography file
αβεbiojmc[1/∞p/∞l⊗↔αβ⊗↓
αXDEFINE SYM⊗↔⊗; making a symbol preceded by space italic for TEX
}αb α αi{\it α⊗=αβ⊗↓
αXDEFINE SYMB⊗↔⊗; making a symbol at beginning of line italic for TEX
α⊗→αi{\it α⊗=}αβ⊗↓
αXDEFINE EXT⊗↔⊗; starting a page at the end of a file
αβxstopone⊗↔αzextq1⊗↔αβ∞αβlαβxmark⊗↔αβxstopall⊗↔αβ⊗↓
αXDEFINE extq1⊗↔⊗; subsidiary to ext
αβ∞αβpαβ⊗↓
⊗⊂ Brings in REPLY macro from EINIT[1,3] (if necessary) and executes it.⊃
αxDEFINE R⊗↔
αzR1⊗↔αxSET R1=NULL⊗↔αβ#αzREPLY⊗↔
αβ⊗↓
αxDEFINE R1⊗↔
αxEXECUTE EINIT.CMD[1,3](14)⊗↔
αβ⊗↓
αxDEFINE NULL⊗↔
⊗≠
αβ⊗↓
αXDEFINE T⊗↔⊗; Puts the attach buffer at the end of other file (for comments).
αhαβ∞αβlαeβ⊗↔αhαxcan⊗↔αβ⊗↓
αXDEFINE MOVE⊗↔⊗; moves paragraph to end of previous page - used with calendar
αβ!αβaαβ-αβpαβ∞αβlαβeαβoαβ⊗↓
αXDEFINE N⊗↔⊗; goes to NOTES file
αβεnotes[1/∞p/∞l⊗↔αβ⊗↔αβ⊗↓
αXDEFINE Note⊗↔⊗; goes to NOTES file
αβεnotes[1/∞p/∞l⊗↔αβ⊗↔αβ⊗↓
αXDEFINE NOTES⊗↔⊗; goes to NOTES file
αβεnotes[1/∞p/∞l⊗↔αβ⊗↔αβ⊗↓
αXDEFINE PURGE⊗↔⊗; purges failed message from msg and outgo
αzmsg⊗↔αβ∂αβdαβεoutgo.msg/∞p⊗↔αβ∂αβdαβhαβ⊗↓
αXDEFINE MSG1⊗↔⊗; to end of first page of message file
αβεmsg.msg[1,jmc]/1p/∞l⊗↔αβ⊗↓
αXDEFINE DIR⊗↔⊗; with dir2 to get directory info about file in files[let,jmc]
αcαeβdβiβ αs⊗=αk⊗↔α=αβ⊗↓
αXDEFINE DIR2⊗↔⊗; with dir to get directory information
αβe⊗↑αβ6αβd⊗↔αβ6αβd⊗↑αk ⊗=⊗=⊗↔αβ⊗↓
αXDEFINE L⊗↔⊗; switching to file of letters
αxal let⊗↔αβεletter/e⊗↔αβ⊗↔αβ⊗↓
αXDEFINE MEMTEX⊗↔⊗; starting a memo in TEX
αβlαxmark⊗↔α-αp\input memo.tex[let,jmc]⊗↔\title{}⊗↔αxmark⊗↔
\smallskip
\centerline{Copyright \copyright\ \number\year\ by John McCarthy}⊗↔
\smallskip
\noindent{This draft of \jobname\ TEXed on \jmcdate\ at \theTime}⊗↔
\vfill\eject\end⊗↔αβ⊗↓
αXDEFINE BAD⊗↔⊗; removing aborted message from msg.msg and outgo.msg
αβεmsg.msg[1,jmc]/∞p⊗↔αβ∂αβd⊗↔αβεoutgo.msg[1,jmc]/∞p⊗↔αβ∂αβd⊗↔αβhαβ⊗↓
αXDEFINE ADR⊗↔
⊗↔John McCarthy⊗↔Computer Science Department⊗↔Stanford University⊗↔Stanf
ord, CA 94305⊗↔αβ⊗↓
αXDEFINE AIL⊗↔
αβ⊗↔.require "let.pub[let,jmc]" source;⊗↔∂AIL αβ⊗↓
αXDEFINE BAD⊗↔
αβεmsg.msg[1,jmc]/∞p⊗↔αβ∂αβd⊗↔αβεoutgo.msg[1,jmc]/∞p⊗↔αβ∂αβd⊗↔αβhαβ⊗↓
αXDEFINE BIO⊗↔
αβεbiojmc[1/∞p/∞l⊗↔αβ⊗↓
αXDEFINE BOISE⊗↔
αcαeαiboise αs]α αk⊗↔αi⊗↔kα⊗↔αβuαxsubjob⊗↔αβ2α=αβ2αβdαβ⊗↓
αXDEFINE C⊗↔
circumscriptionαβ⊗↓
αXDEFINE CAL⊗↔
⊗↔αεcal[1,jmc]/∞p⊗↔αβ⊗↓
αXDEFINE CCME⊗↔
αZRENTRY⊗↔αZCCME0⊗↔αZEXIT2⊗↔αβ⊗↓
αXDEFINE CCME0⊗↔
αXSET REPTMP=LINE.⊗↔αZRPSN1A⊗↔⊗↔⊗↔αβ⊗↔Reply-cc: .α⊗↔αXSET REPTM2=REPTMP⊗↔
αXARGUMENT LINE.⊗↔αXDIVIDE REPTM2⊗↔αXMINIMUM REPTM2⊗↔αXARGUMENT REPTM2⊗↔
αXADD REPTMP⊗↔αXARGUMENT REPTMP⊗↔αLαZREXIT1⊗↔αβ⊗↓
αXDEFINE COM⊗↔
αi.<<α⊗=>>⊗↔αβ⊗↓
αXDEFINE CSL⊗↔
αβ⊗↔.require "let.pub[let,jmc]" source;⊗↔∂CSL αβ⊗↓
αXDEFINE DEL⊗↔
αxpo⊗↔αxreadw⊗↔αxfiledelete⊗↔αhαβdαβ⊗↓
αXDEFINE DEL1⊗↔
αidel αs]α αk⊗↔α⊗↔α=αβ⊗↓
αXDEFINE DIR⊗↔
αcαeβdβiβ αs⊗=αk⊗↔α=αβ⊗↓
αXDEFINE DIR2⊗↔
αβe⊗↑αβ6αβd⊗↔αβ6αβd⊗↑αk ⊗=⊗=⊗↔αβ⊗↓
αXDEFINE DOV⊗↔
αcαeαidover αs⊗=αk⊗↔α⊗↔α=αβdαβ⊗↓
αXDEFINE DOVER⊗↔
αcαeαidover αs]α αk⊗↔αi⊗↔kα⊗↔αβuαxsubjob⊗↔αβ2α=αβ2αβdαβ⊗↓
αXDEFINE E⊗↔
({eq })αb}αiαβ⊗↓
αXDEFINE EKL⊗↔
αxsl dsk:ekl.dmp[1,3]⊗↔αxlfile⊗↔αβ⊗↓
αXDEFINE ENTRY⊗↔
αxset exitw=entryn⊗↔αxadd entryn⊗↔αxminimum exitw⊗↔αβ0αxmaximum exitw⊗↔αβx
argument exitw⊗↔αxabort⊗↔αxset entryc=check.⊗↔αβ0αxminimum entryc⊗↔α-αxm
aximum entryc⊗↔αβ2αxmultiply entryc⊗↔αxadd entryc⊗↔αxset entryt=terse.⊗↔
α-αxmaximum entryt⊗↔αxminimum entryt⊗↔αβ2αxadd entryt⊗↔αxset entrys=sile
nt.⊗↔αβ0αxmaximum entrys⊗↔αxminimum entrys⊗↔αβ2αxmultiply entrys⊗↔αxsubt
ract entrys⊗↔αxset entryu=undmax.⊗↔α-αxmultiply entryu⊗↔αxset entrye=exa
ct.⊗↔αβ0αxmaximum entrye⊗↔α-αxminimum entrye⊗↔αβ2αxmultiply entrye⊗↔αxsu
btract entrye⊗↔αxset entryh=stopho.⊗↔αβ2αxadd entryh⊗↔αβ⊗↓
αXDEFINE ENTRYC⊗↔
1αβ⊗↓
αXDEFINE ENTRYE⊗↔
-3αβ⊗↓
αXDEFINE ENTRYH⊗↔
1αβ⊗↓
αXDEFINE ENTRYN⊗↔
0αβ⊗↓
αXDEFINE ENTRYS⊗↔
-1αβ⊗↓
αXDEFINE ENTRYT⊗↔
2αβ⊗↓
αXDEFINE ENTRYU⊗↔
-5000αβ⊗↓
αXDEFINE ENTRYX⊗↔
αzentry⊗↔αxterse⊗↔αxsilent⊗↔αxstopone⊗↔α-αxcheck⊗↔α-αxexact⊗↔αβ⊗↓
αXDEFINE ESP⊗↔
αcαeαimaple αs]α αk⊗↔αi/font=fix40⊗↔kα⊗↔αβuαxsubjob⊗↔αβ2α=αβ2αβdαβ⊗↓
αXDEFINE EXIT⊗↔
αzexit1⊗↔αzexit2⊗↔αβ⊗↓
αXDEFINE EXIT1⊗↔
αxset exit2←exit2q⊗↔αxsubtract entryn⊗↔αβ0αxmaximum entryn⊗↔αxset exitw=
entryn⊗↔αxminimum exitw⊗↔αβxargument exitw⊗↔αxabort⊗↔αxset exitw=wflag.⊗↔
αxadd exitw⊗↔αβxargument entryu⊗↔αxundelete⊗↔α2αβ⊗↔⊗α⊗βxargument entryc⊗⊗
↔⊗αxcheck⊗⊗↔⊗α⊗βxargument entrye⊗⊗↔⊗αxexact⊗⊗↔⊗α⊗βxargument entrys⊗⊗↔⊗αx
silent⊗⊗↔⊗↔⊗αxstop:=all=zero=one=αb:αβxargument entryh⊗↔αk=αdαs=αk⊗↔⊗⊗↔:
=⊗αxterse=⊗α-⊗αxterse=⊗αxverbose=αb:αβxargument entryt⊗↔αk=αdαs=αk⊗↔⊗⊗↔αβu
αβ2αβaαxredefine exit2⊗↔αβkα1αβ⊗↔:=⊗αxcancel⊗⊗↔=⊗⊗≠=αb:αβxargument exitw
⊗↔αk=αdαs=αk⊗↔αβaαxredefine exitw⊗↔αβkαzexitw⊗↔αβ⊗↓
αXDEFINE EXIT2⊗↔
αβxargument entryc⊗↔αxcheck⊗↔αβxargument entrye⊗↔αxexact⊗↔αβxargument en
trys⊗↔αxsilent⊗↔αxstopall⊗↔α-αxterse⊗↔αβ⊗↓
αXDEFINE EXIT2Q⊗↔
αx⊗↔αβ⊗↓
αXDEFINE EXITW⊗↔
⊗≠αβ⊗↓
αXDEFINE EXT⊗↔
αβxstopone⊗↔αzextq1⊗↔αβ∞αβlαβxmark⊗↔αβxstopall⊗↔αβ⊗↓
αXDEFINE EXTQ1⊗↔
αβ∞αβpαβ⊗↓
αXDEFINE FIL⊗↔
⊗↔αεfiles[let,jmc]/∞p⊗↔αβ⊗↓
αXDEFINE FIL1⊗↔
⊗↔αεfiles[let,jmc]/1p⊗↔αβ⊗↓
αXDEFINE JNK⊗↔
⊗↔αεmsg.msg[jnk,jmc]/∞p⊗↔αβ⊗↓
αXDEFINE L⊗↔
αxal let⊗↔αβεletter/e⊗↔αβ⊗↔αβ⊗↓
αXDEFINE LATHRO⊗↔
αcαeαilathrop αs]α αk⊗↔αi/font=fix40⊗↔kα⊗↔αβuαxsubjob⊗↔αβ2α=αβ2αβdαβ⊗↓
αXDEFINE LISP⊗↔
αxsl (lisp)⊗↔αxlpend⊗↔αβ⊗↓
αXDEFINE MAIL⊗↔
αβ∞αβxmail/su⊗↔αβ⊗↓
αXDEFINE MAPLE⊗↔
αcαeαimaple αs]α αk⊗↔αi/font=fix40⊗↔kα⊗↔αβuαxsubjob⊗↔αβ2α=αβ2αβdαβ⊗↓
αXDEFINE MEM⊗↔
αβ⊗↔.require "memo.pub[let,jmc]" source;⊗↔.cb αβ⊗↓
αXDEFINE MEMTEX⊗↔
αβlαxmark⊗↔α-αp\input memo.tex[let,jmc]⊗↔\title{}⊗↔αxmark⊗↔\smallskip\ce
nterline{Copyright \copyright\ \number\year\ by John McCarthy}⊗↔\smallsk
ip\noindent{This draft of \jobname\ TEXed on \jmcdate\ at \theTime}⊗↔\vf
ill\eject\end⊗↔αβ⊗↓
αXDEFINE MOVE⊗↔
αβ!αβaαβ-αβpαβ∞αβlαβeαβoαβ⊗↓
αXDEFINE MSG⊗↔
⊗↔αεmsg.msg[1,jmc]/∞p⊗↔αβ⊗↓
αXDEFINE MSG1⊗↔
αβεmsg.msg[1,jmc]/1p/∞l⊗↔αβ⊗↓
αXDEFINE MYPHON⊗↔
(work: 415 497-4430) (home: 857-0672)αβ⊗↓
αXDEFINE N⊗↔
αβεnotes[1/∞p/∞l⊗↔αβ⊗↔αβ⊗↓
αXDEFINE NAME⊗↔
αZTEMP1⊗↔αβ⊗↓
αXDEFINE NEW⊗↔
α⊗↔αs⊗=αi[e87,jmc]α⊗↔αxpo/c⊗↔αhαcαhαe⊗↔αβ⊗↔αβ⊗↓
αXDEFINE NOTE⊗↔
αβεnotes[1/∞p/∞l⊗↔αβ⊗↔αβ⊗↓
αXDEFINE NOTES⊗↔
αβεnotes[1/∞p/∞l⊗↔αβ⊗↔αβ⊗↓
αXDEFINE NULL⊗↔
⊗≠αβ⊗↓
αXDEFINE OLDMS0⊗↔
αZRPSN1A⊗↔⊗↔⊗↔α-α∞αβ!αCαXINDENT S 2⊗↔αXSIN⊗↔α∞αLαEα1αβ⊗↔α7α0-α⊗→+⊗↔α∞αZO
LDMS1⊗↔α7α0-α⊗→+α⊗↔α-αβD⊗↑αZOLDMS3⊗↔α∞αLαZREXIT1⊗↔αβ⊗↓
αXDEFINE OLDMS1⊗↔
αZOLDMS2⊗↔α0αXNONEMPTY⊗↔αF αβ\|⊗↔α1αXTIN⊗↔⊗↔αβ⊗↓
αXDEFINE OLDMS2⊗↔
α0αXEMPTY⊗↔ α⊗↔αβ⊗↓
αXDEFINE OLDMS3⊗↔
αXIFEQ CHARS.⊗↔αβDαβ⊗↓
αXDEFINE OLDMSG⊗↔
αZRENTRY⊗↔αZOLDMS0⊗↔αZEXIT2⊗↔αβ⊗↓
αXDEFINE PHIL⊗↔
α∞αxmail "phil-sci%oz"%mc/su⊗↔αβ⊗↓
αXDEFINE PHO⊗↔
αβεphon[1,jmc]/1p⊗↔αβ⊗↓
αXDEFINE PHON⊗↔
αβεphon[1,jmc]/1p⊗↔αβ⊗↓
αXDEFINE PHONE⊗↔
(home: 415 857-0672) (office: 723-4430)⊗↔αβ⊗↓
αXDEFINE PURGE⊗↔
αzmsg⊗↔αβ∂αβdαβεoutgo.msg/∞p⊗↔αβ∂αβdαβhαβ⊗↓
αXDEFINE R⊗↔
αzR1⊗↔αxSET R1=NULL⊗↔αβ#αzREPLY⊗↔αβ⊗↓
αXDEFINE R1⊗↔
⊗≠αβ⊗↓
αXDEFINE RECON⊗↔
α-αxsubjob⊗↔αxrec⊗↔αβ⊗↓
αXDEFINE RELISP⊗↔
α-αxsubjob⊗↔αxrec⊗↔αβ⊗↓
αXDEFINE RENTRY⊗↔
⊗≠αZENTRYX⊗↔α-αXUNDELETE⊗↔αXSET REPLJC=CMAR.⊗↔αXSET REPLJL=LMAR.⊗↔αXSET
REPLJR=RMAR.⊗↔αXSET REPLBK=BRKCOL.⊗↔αXSET REPDNT=INDENT.⊗↔αβ⊗↓
αXDEFINE REP5A0⊗↔
α1α5αXIFEQ ASCII.⊗↔α+αXSSLINE⊗↔α2αF⊗=⊗↔α+α1αXARGUMENT SRCHAR.⊗↔αXIFLT CH
ARS.⊗↔αCαEαXSSLINE⊗↔αF⊗=αβ\ αβ2⊗↔αXBREAK SRCHAR.⊗↔αβDα1αβ⊗↔Reply-Subjec
t: re:α⊗↔αXJOIN⊗↔αAαXTIN⊗↔αXSIN⊗↔α2αXABORT⊗↔αβ⊗↓
αXDEFINE REP6A0⊗↔
αCαXJFILL 0,0,999⊗↔αEα1α5αXIFEQ ASCII.⊗↔α1α6αXIFLE COLS.⊗↔αXBREAK 16⊗↔⊗↔
αβD⊗↑αDαβ4αβ8αXIFLE ASCII.⊗↔αβ5αβ7αXIFGE ASCII.⊗↔αS αβ9αXIFEQ CHAR.⊗↔α αβ4
αβ8αXIFLE ASCII.⊗↔αβ5αβ7αXIFGE ASCII.⊗↔αS αβ1αβ4αXIFEQ CHAR.⊗↔α⊗→αZREPFR
M⊗↔αI rcvd α1α2α β:αS -PT.]αβAαβ⊗↓
αXDEFINE REP6A1⊗↔
⊗↔α∞αZRFC822⊗↔αEα2αβ⊗↔ sent α⊗→αZREPFRM⊗↔α ⊗↔.]αβA⊗↔αEα-α2αXJOIN⊗↔α1αXJF
ILL 0,0,999⊗↔αXJOIN⊗↔αXSTOPZERO⊗↔α+αXSSLINE⊗↔αF..]αβ\.]αβ∞⊗↔αXSTOPONE⊗↔αAαβ⊗↓
αXDEFINE REPARG⊗↔
2αβ⊗↓
αXDEFINE REPDNT⊗↔
4αβ⊗↓
αXDEFINE REPFRM⊗↔
αI[In reply to messageαβ3αXIFLE REPARG⊗↔αI from THOMASON@CSLI.Stanford.E
DUαβ⊗↓
αXDEFINE REPL0⊗↔
α∞αLαXSET REPLIN=LINE.⊗↔α0αA⊗↑α0αXNONEMPTY⊗↔⊗↔β⊗↔αXADD REPLIN⊗↔αβ⊗↓
αXDEFINE REPL1⊗↔
αβ#αXSET REPARG⊗↔α2αXMULTIPLY REPARG⊗↔αZREPARG⊗↔α⊗→αXSET REPTMP=ASCII.⊗↔
⊗≠α4α3αXIFEQ REPTMP⊗↔αXADD REPARG⊗↔αβ⊗↓
αXDEFINE REPL2⊗↔
αLαXEMPTY⊗↔α+α0αXSSLINE⊗↔αZREPL2A⊗↔αZRFC822⊗↔αXARGUMENT REPLIN⊗↔αLαEαXAD
D REPLIN⊗↔⊗↔α1αβ⊗↔,αβUαXJOIN⊗↔α1αXSIN⊗↔αF,αβ\ ,⊗↔αXBREAK SRCHAR.⊗↔⊗↔αβD⊗↑
α1αZREPNAM⊗↔α1αβ⊗↔⊗αI[In reply to message⊗α⊗β3⊗αXIFLE REPARG⊗⊗↔⊗αI from
α⊗↔α2αXREDEFINE REPFRM⊗↔αβDαIReplying-To: α⊗↔αXSET REPLN2=LINE.⊗↔αβ⊗↓
αXDEFINE REPL2A⊗↔
αXSTOPZERO⊗↔αLαF⊗↓≡⊗↔Reply-To:⊗↓⊗↔⊗↔αXSET RPRPTO⊗↔αXSTOPONE⊗↔αXIFNE NFOU
ND.⊗↔αXSTOPZERO⊗↔⊗↑αF⊗↓≡⊗↔From:⊗↓⊗↔⊗↔α0αXSET RPRPTO⊗↔αXSTOPONE⊗↔αXIFNE N
FOUND.⊗↔⊗↑α1α5αXIFNE ASCII.⊗↔αXSAY Sorry -- Can't find sender's name any
where in header.⊗↔αZREPLXX⊗↔αβ⊗↓
αXDEFINE REPL3⊗↔
α3αXIFLE REPARG⊗↔αXSET RPLSTF←REPL3F⊗↔αXSET RPLSTI←REPL3I⊗↔α1αZREPLST⊗↔αX
IFEQ REPTOP⊗↔αβXSAY Warning -- Unable to find any "To" lines.⊗↔αβ⊗↓
αXDEFINE REPL3F⊗↔
αF⊗↓≡⊗↔To:⊗↓⊗↔αβ⊗↓
αXDEFINE REPL3I⊗↔
αIAlso-to: α⊗↔αβ⊗↓
αXDEFINE REPL4⊗↔
α4αXIFLE REPARG⊗↔αXSET RPLSTF←REPL4F⊗↔αXSET RPLSTI←REPL4I⊗↔α1αZREPLST⊗↔αX
SET RPLSTF←REPL4G⊗↔αXARGUMENT REPTOP⊗↔αZREPLST⊗↔αXIFEQ REPTOP⊗↔αβXSAY Wa
rning -- Unable to find any "CC" lines.⊗↔αβ⊗↓
αXDEFINE REPL4F⊗↔
αF⊗↓≡⊗↔cc:⊗↓⊗↔αβ⊗↓
αXDEFINE REPL4G⊗↔
αF⊗↓≡⊗↔ReSent-To:⊗↓⊗↔αβ⊗↓
αXDEFINE REPL4I⊗↔
αIReply-cc: α⊗↔αβ⊗↓
αXDEFINE REPL5⊗↔
αXARGUMENT REPLN2⊗↔αXSSLINE⊗↔αXSTOPZERO⊗↔⊗↔αLαF⊗↓≡⊗↔Subject:⊗↓⊗↔αXSTOPON
E⊗↔αXARGUMENT NFOUND.⊗↔αXCASE REPL5A REPL5B⊗↔αXARGUMENT REPLIN⊗↔αLαEαXAD
D REPLIN⊗↔α+αXSSLINE⊗↔αFReply-Subject: re: re:αβ\Reply-Subject: re:⊗↔αβ⊗↓
αXDEFINE REPL5A⊗↔
αZREP5A0⊗↔α1αβ⊗↔Reply-Subject: reply to messageαβAαβ⊗↓
αXDEFINE REPL5B⊗↔
⊗↔αCαEαFSubjectαβ\Reply-Subject: re⊗↔αAαβ⊗↓
αXDEFINE REPL6⊗↔
αXARGUMENT REPLIN⊗↔αLα3αβ⊗↔⊗↔Reply-Text:⊗↔α3αXADD REPLIN⊗↔αZREPL6A⊗↔αβDαX
ARGUMENT REPLN2⊗↔αLαJαXARGUMENT REPLIN⊗↔αLαβ⊗↓
αXDEFINE REPL6A⊗↔
αLαXARGUMENT REPLN2⊗↔αXSSLINE⊗↔αXSTOPZERO⊗↔αF⊗↓≡⊗↔Date:⊗↓⊗↔αXSTOPONE⊗↔αX
ARGUMENT NFOUND.⊗↔αXCASE REP6A0 REP6A1⊗↔⊗≠αXIFEQ ATTSIZ.⊗↔αXARGUMENT REP
LIN⊗↔αLαE⊗↔β⊗↔α2αXADD REPLIN⊗↔α-αCαEαβ⊗↓
αXDEFINE REPL7⊗↔
αXSET %=REPSND⊗↔αXSAY Type <control>% when ready to mail. ⊗↔αβ⊗↓
αXDEFINE REPLBK⊗↔
80αβ⊗↓
αXDEFINE REPLIN⊗↔
21αβ⊗↓
αXDEFINE REPLJC⊗↔
8αβ⊗↓
αXDEFINE REPLJL⊗↔
0αβ⊗↓
αXDEFINE REPLJR⊗↔
74αβ⊗↓
αXDEFINE REPLN2⊗↔
19αβ⊗↓
αXDEFINE REPLST⊗↔
αXSET REPTOP⊗↔α∞αZRPLST1⊗↔α#αXMAXIMUM REPTOP⊗↔αβ⊗↓
αXDEFINE REPLW⊗↔
0αβ⊗↓
αXDEFINE REPLX2⊗↔
αXSSLINE⊗↔αZREXIT1⊗↔α-α1αXARGUMENT MDEPTH.⊗↔αXABORT⊗↔αβ⊗↓
αXDEFINE REPLXX⊗↔
αZREXIT1⊗↔αXSET REPTMP=LINE.⊗↔αXSTOPZERO⊗↔αXARGUMENT REPLIN⊗↔αLα∞αβ!αAαX
SSLINE⊗↔αXARGUMENT REPTMP⊗↔αLα-α1αXARGUMENT MDEPTH.⊗↔αXABORT⊗↔αβ⊗↓
αXDEFINE REPLY⊗↔
αZRENTRY⊗↔αXSET REPLW=WFLAG.⊗↔αZREPL0⊗↔αβ#αZREPL1⊗↔αXPAREN⊗↔αZRPMAIN⊗↔αZ
EXIT2⊗↔αβ⊗↓
αXDEFINE REPNAM⊗↔
α#αZREPNM0⊗↔α#αZREPNM6⊗↔α+αXSSLINE⊗↔αZREPNM8⊗↔αXSTOPZERO⊗↔⊗↑⊗↔αF∧αβ\ αβ∞
⊗↔⊗↑⊗↔αF∨αβ\,αβ∞⊗↔⊗↑⊗↔αF∃αβ\:αβ∞⊗↔⊗↑⊗↔αF≡∀αβ\@αβ∞⊗↔⊗↑⊗↔αF\""αβ\\"αβ∞⊗↔⊗↑
⊗↔αF\()αβ\\(αβ∞⊗↔⊗↑⊗↔αF\)(αβ\\)αβ∞⊗↔αXSTOPONE⊗↔αβ⊗↓
αXDEFINE REPNM0⊗↔
αZREPNM1⊗↔αβD⊗↑αZREPNM2⊗↔αβD⊗↑αZREPNM3⊗↔αβD⊗↑αZREPNM4⊗↔α-αCαEα#αZREPNM6⊗↔
αβDα#αXARGUMENT RPDFLT⊗↔αZREPNM5⊗↔α#αZREPNM7⊗↔αXSAY Sorry -- Can't find
a name in the above line.⊗↔αZREPLXX⊗↔αβ⊗↓
αXDEFINE REPNM1⊗↔
αCαEα+αXSSLINE⊗↔αF<αβ\ε<⊗↔αXBREAK SRCHAR.⊗↔αβDαF<αβ\⊗↔αF>αβ\>ε⊗↔αXBREAK
SRCHAR.⊗↔⊗↔αβD⊗↑αF>αβ\⊗↔αXSTOPZERO⊗↔⊗↑⊗↔α+αXSSLINE⊗↔αF at αβ\@⊗↔αXSTOPON
E⊗↔αZREPNMX⊗↔αβ⊗↓
αXDEFINE REPNM2⊗↔
αCαEα+αXSSLINE⊗↔αF at αβ\@⊗↔αZREPNMX⊗↔αβ⊗↓
αXDEFINE REPNM3⊗↔
αCαEαZREPNMX⊗↔αβ⊗↓
αXDEFINE REPNM4⊗↔
αCαXJFILL 0,0,1⊗↔αXSET REPTMP=ATTSIZ.⊗↔αEα∞αZRPNM4A⊗↔αβ⊗↓
αXDEFINE REPNM5⊗↔
α#αXSET REPTMP⊗↔α2αXIFLT REPTMP⊗↔α-αCαXJFILL 0,0,1⊗↔αXSET REPTMP=ATTSIZ.
⊗↔αE⊗↔α-α1αXARGUMENT REPTMP⊗↔αβD⊗↑αZRPNM5A⊗↔α⊗↔αZRPNM5B⊗↔αβDαβ⊗↓
αXDEFINE REPNM6⊗↔
α+αXSSLINE⊗↔α#αXSET REPTMP⊗↔α2αXMINIMUM REPTMP⊗↔α-α1αXARGUMENT REPTMP⊗↔αX
CASE RPNM6A RPNM6B⊗↔αβ⊗↓
αXDEFINE REPNM7⊗↔
α#αXIFEQ RPRPTO⊗↔⊗↑αXINDENT -9999⊗↔α1αXTIN⊗↔α1αXSIN⊗↔α2αXABORT⊗↔αβ⊗↓
αXDEFINE REPNM8⊗↔
αXSTOPZERO⊗↔⊗↑⊗↔αF@SAIL.STANFORD.EDUαβ\⊗↔⊗↑⊗↔αF@SU-AI.ARPAαβ\⊗↔⊗↑⊗↔αF@SU
-AIαβ\⊗↔⊗↑⊗↔αF@SAILαβ\⊗↔⊗↑⊗↔αF@⊗↔αXSTOPONE⊗↔αXIFNE NFOUND.⊗↔α3αXIFLE CHA
RS.⊗↔α3α4αXIFEQ ASCII.⊗↔αXSTOPZERO⊗↔⊗↑⊗↔α∞αF"⊗↔αXARGUMENT NFOUND.⊗↔αβ*αX
STOPONE⊗↔α+α1αXARGUMENT SRCHAR.⊗↔αXIFEQ CHARS.⊗↔αXBREAK SRCHAR.⊗↔αXBREAK
1⊗↔αβD⊗↔αβD⊗↑α+αXSSLINE⊗↔αβ⊗↓
αXDEFINE REPNMX⊗↔
αXINDENT -9999⊗↔α1αXTIN⊗↔α1αXSIN⊗↔⊗↑⊗↔α+αXSSLINE⊗↔αF@⊗↔αXIFLE SRCHAR.⊗↔α1
αXARGUMENT SRCHAR.⊗↔αXIFLT CHARS.⊗↔αXBREAK SRCHAR.⊗↔αAαXJFILL 0,0,1⊗↔α-αA
α+αCαβKαXBREAK 1⊗↔⊗↔αAαXJFILL⊗↔αXSET REPTMP⊗↔αXARGUMENT ATTSIZ.⊗↔αXSUBTR
ACT REPTMP⊗↔αXARGUMENT REPTMP⊗↔αCα0αAα2⊗↑α3αXJOIN⊗↔αXSSLINE⊗↔αF@⊗↔α-αβDα3
αXABORT⊗↔αβ⊗↓
αXDEFINE REPSN0⊗↔
αZREPSN1⊗↔αZREPSN2⊗↔αZREPSN3⊗↔αβ⊗↓
αXDEFINE REPSN1⊗↔
αZRPSN1A⊗↔⊗↔αXSET REPLN2=LINE.⊗↔αZRPSN1B⊗↔⊗↔αXSET REPLIN=LINE.⊗↔αXARGUME
NT REPLN2⊗↔αLαXSET REPTMP=REPLIN⊗↔α1αXARGUMENT REPLN2⊗↔αXSUBTRACT REPTMP
⊗↔αXIFLE REPTMP⊗↔αXARGUMENT REPTMP⊗↔αZRPSN1C⊗↔αXARGUMENT REPLIN⊗↔αLαXSTO
PZERO⊗↔αXNONEMPTY⊗↔αXSTOPONE⊗↔αXARGUMENT LINE.⊗↔αXIFEQ REPLIN⊗↔αβXSAY⊗↔αβX
SAY Sorry -- No text found after "Reply-Text" line.⊗↔αZREPLX2⊗↔αβ⊗↓
αXDEFINE REPSN2⊗↔
αXSET REPTMP⊗↔αXARGUMENT REPLIN⊗↔αXSSLINE⊗↔αXSTOPZERO⊗↔αF⊗↓≡⊗↔Reply-cc:⊗↓
⊗↔α1αXARGUMENT REPLN2⊗↔αLαXSTOPONE⊗↔α∞αZRPSN2A⊗↔αXARGUMENT ATTSIZ.⊗↔αXAD
D REPTMP⊗↔α1αXARGUMENT REPLN2⊗↔αLα0αAαZRPSN2B⊗↔αXSTOPZERO⊗↔αF⊗↓≡⊗↔Also-T
o:⊗↓⊗↔α1αXARGUMENT REPLN2⊗↔αLαXSTOPONE⊗↔α∞αZRPSN2A⊗↔αXARGUMENT ATTSIZ.⊗↔
αXADD REPTMP⊗↔α1αXARGUMENT REPLN2⊗↔αLα0αA⊗↑αXARGUMENT REPTMP⊗↔αZRPSN2C⊗↔
αXARGUMENT REPLN2⊗↔αLαXARGUMENT REPTMP⊗↔αXJOIN⊗↔α-α1αXARGUMENT REPTMP⊗↔αX
SUBTRACT REPLIN⊗↔αF,αβ\MAIL ⊗↔αZRPSN2D⊗↔αXARGUMENT REPLIN⊗↔αLαXNONEMPTY⊗↔
αXSET REPTMP=REPLN2⊗↔α-α1αXARGUMENT LINE.⊗↔αXSUBTRACT REPTMP⊗↔αXARGUMENT
REPTMP⊗↔αβD⊗↑αβ⊗↓
αXDEFINE REPSN3⊗↔
αFMAILαβ\⊗↔αZREXIT1⊗↔α∞αβ!αAαXMAIL⊗↔αZRPSN3C⊗↔αβKαβ⊗↓
αXDEFINE REPSND⊗↔
αZRENTRY⊗↔αZREPSN0⊗↔αZEXIT2⊗↔αβ⊗↓
αXDEFINE REPTMP⊗↔
-3αβ⊗↓
αXDEFINE REXIT1⊗↔
αZEXIT1⊗↔αXATTACH REPLJC⊗↔αXJFILL REPLJC,REPLJL,REPLJR⊗↔αXINDENT REPDNT⊗↔
αXBREAK REPLBK⊗↔αβKαXSSLINE⊗↔αβ⊗↓
αXDEFINE RFC1⊗↔
α1α5αXIFEQ ASCII.⊗↔αCαEα⊗=⊗=α⊗→αS⊗=αRαK⊗↔αAα2αXABORT⊗↔αβ⊗↓
αXDEFINE RFC2⊗↔
αZRFC2A⊗↔α+αCαXJOIN⊗↔αβ⊗↓
αXDEFINE RFC2A⊗↔
α3α2αXIFNE ASCII.⊗↔α9αXIFNE ASCII.⊗↔α2αXABORT⊗↔αβ⊗↓
αXDEFINE RFC3⊗↔
α+αXSSLINE⊗↔αF(αβ\ε(⊗↔αXBREAK SRCHAR.⊗↔α+αXSSLINE⊗↔αXSTOPZERO⊗↔α∞αF"⊗↔αX
SET REPTMP=NFOUND.⊗↔αXSTOPONE⊗↔α2αXREMAINDER REPTMP⊗↔αXARGUMENT REPTMP⊗↔
αXCASE RFC3A RFC3B⊗↔αβ⊗↓
αXDEFINE RFC3A⊗↔
⊗↔αAαXSET REPTMP=LINE.⊗↔α∞αLα1αXBREAK 80⊗↔αEαXSET REPTM2=LINE.⊗↔αZRFC3A0
⊗↔αXSAY Sorry -- Couldn't find matching close parenthesis in above heade
r line.⊗↔αXARGUMENT REPTM2⊗↔αLα∞αβ!αβDαXARGUMENT REPTMP⊗↔αLα-α2αβDαZREPL
XX⊗↔αβ⊗↓
αXDEFINE RFC3A0⊗↔
α)αL⊗↔αDα⊗↔αXARGUMENT LINE.⊗↔αXSUBTRACT REPTM2⊗↔αXARGUMENT REPTM2⊗↔αβDα∞
αβ!αAα∞αXJOIN⊗↔αXARGUMENT REPTMP⊗↔αLαEα-α2αXJOIN⊗↔⊗↔α2αXABORT⊗↔αβ⊗↓
αXDEFINE RFC3B⊗↔
⊗↔α+αXSSLINE⊗↔αXSTOPZERO⊗↔αF"αβ\"ε⊗↔αXSTOPONE⊗↔α1αXARGUMENT NSUBST.⊗↔αZR
FC3B0⊗↔αXBREAK SRCHAR.⊗↔α2⊗↑α3αXJOIN⊗↔⊗↔αβ⊗↓
αXDEFINE RFC3B0⊗↔
αXSET REPTMP⊗↔α#αXIFEQ REPTMP⊗↔αXSAY Sorry -- Couldn't find matching quo
te in above header line.⊗↔α2⊗↑α3αβDαZREPLXX⊗↔αβ⊗↓
αXDEFINE RFC4⊗↔
α+αXSSLINE⊗↔αF"αβ\ε"⊗↔αXBREAK SRCHAR.⊗↔αXSTOPZERO⊗↔⊗↔α2αF"αβ\"ε⊗↔αXSTOPO
NE⊗↔α1αXARGUMENT NSUBST.⊗↔αZRFC3B0⊗↔αXBREAK SRCHAR.⊗↔α+αXSSLINE⊗↔αXSTOPZ
ERO⊗↔⊗↑⊗↔αF αβ\∧αβ∞⊗↔⊗↑⊗↔αF,αβ\∨αβ∞⊗↔⊗↑⊗↔αF:αβ\∃αβ∞⊗↔⊗↑⊗↔αF@αβ\∀αβ∞⊗↔αXS
TOPONE⊗↔α2⊗↑α3αXJOIN⊗↔⊗↔αβ⊗↓
αXDEFINE RFC5⊗↔
α#αXIFLE CHARS.⊗↔α∞αZRFC5A⊗↔αβ⊗↓
αXDEFINE RFC5A⊗↔
α+αXSSLINE⊗↔αF:αβ\εε⊗↔αXBREAK SRCHAR.⊗↔αβ⊗↔,α⊗↔αXJOIN⊗↔α+αXSSLINE⊗↔αXSTO
PZERO⊗↔α∞αF,⊗↔αXSTOPONE⊗↔αXARGUMENT NFOUND.⊗↔αF,αβ\,ε⊗↔αXBREAK SRCHAR.⊗↔
⊗↑⊗↔αF,αβ\⊗↔⊗↑αXJOIN⊗↔⊗↔αβDα+αXSSLINE⊗↔αF;αβ\εε⊗↔αXBREAK SRCHAR.⊗↔⊗↑αXJO
IN⊗↔⊗↔αβ⊗↓
αXDEFINE RFC822⊗↔
αZRFC1⊗↔αCα∞αZRFC2⊗↔αEα+αXSSLINE⊗↔αXSTOPZERO⊗↔αF⊗=αβ\ αβ∞⊗↔αXSTOPONE⊗↔⊗↑
⊗↔αF:⊗↔αXBREAK SRCHAR.⊗↔αβDαF:αβ\⊗↔β⊗↔α∞αZRFCX3⊗↔⊗↑αXJOIN⊗↔β⊗↔α∞αZRFC3⊗↔
⊗↑αXJOIN⊗↔β⊗↔α∞αZRFC4⊗↔⊗↑αXJOIN⊗↔β⊗↔α#αZRFC5⊗↔⊗↑αXJOIN⊗↔αXSTOPZEROα+αXSS
LINE⊗↔αFεαβ\αβ∞⊗↔αXSTOPONE⊗↔αAαβ⊗↓
αXDEFINE RFCX3⊗↔
α+αXSSLINE⊗↔αF\αβ\ε\⊗↔αXBREAK SRCHAR.⊗↔⊗↔αXBREAK 2⊗↔α+αXSSLINE⊗↔αXSTOPZE
RO⊗↔αF\"αβ\\""⊗↔αF\(αβ\\()⊗↔αF\)αβ\\)(⊗↔αXSTOPONE⊗↔α2⊗↑α3αXJOIN⊗↔⊗↔αβ⊗↓
αXDEFINE ROVER⊗↔
αcαeαirover αs]α αk⊗↔αi⊗↔kα⊗↔αβuαxsubjob⊗↔αβ2α=αβ2αβdαβ⊗↓
αXDEFINE RPDFLT⊗↔
2αβ⊗↓
αXDEFINE RPHOST⊗↔
@CSLI.Stanford.EDUαβ⊗↓
αXDEFINE RPLS2A⊗↔
α1αXTIN⊗↔α1αXSIN⊗↔αXIFLE CHARS.⊗↔αXADD REPLIN⊗↔α2αZREPNAM⊗↔αZRPLSTI⊗↔αCαEαβ⊗↓
αXDEFINE RPLST1⊗↔
αXARGUMENT REPTOP⊗↔αL⊗↔⊗↑αXARGUMENT REPLN2⊗↔αXSSLINE⊗↔αZRPLSTF⊗↔αXIFEQ N
FOUND.⊗↔⊗↔αXSET REPTOP=LINE.⊗↔αZRFC822⊗↔αXARGUMENT REPLIN⊗↔αLαEαXADD REP
LIN⊗↔⊗↔α1αβ⊗↔,αβUαXJOIN⊗↔α∞αZRPLST2⊗↔αβDαXSUBTRACT REPLIN⊗↔αβ⊗↓
αXDEFINE RPLST2⊗↔
α+αXSSLINE⊗↔αF,αβ\ ⊗↔αXBREAK SRCHAR.⊗↔αZRPLS2A⊗↔αβDαβ⊗↓
αXDEFINE RPMAIN⊗↔
αZREPL2⊗↔αZREPL3⊗↔αZREPL4⊗↔αZREPL5⊗↔αZREPL6⊗↔αZREPL7⊗↔αZREXIT1⊗↔αβ⊗↓
αXDEFINE RPNM4A⊗↔
αZRPNM4B⊗↔α⊗↔αβDαXSUBTRACT REPTMP⊗↔αXIFLE REPTMP⊗↔αβ⊗↓
αXDEFINE RPNM4B⊗↔
α6α5αXIFLE ASCII.⊗↔αXSET REPTM2=ASCII.⊗↔α3α2αXREMAINDER REPTM2⊗↔αXIFLE R
EPTM2⊗↔α2α6αXIFGE REPTM2⊗↔⊗↔α-α1αXARGUMENT REPTMP⊗↔αβD⊗↑αXSET REPTMP⊗↔αX
IFLT CHARS.⊗↔α4αXIFGT CHARS.⊗↔α αβ6αβ5αXIFLE ASCII.⊗↔αXSET REPTM2=ASCII.
⊗↔αβ3αβ2αXREMAINDER REPTM2⊗↔αXIFLE REPTM2⊗↔αβ2αβ6αXIFGE REPTM2⊗↔α⊗=α⊗↑αβ6
αβ5αXIFLE ASCII.⊗↔αXSET REPTM2=ASCII.⊗↔αβ3αβ2αXREMAINDER REPTM2⊗↔αXIFLE
REPTM2⊗↔αβ2αβ6αXIFGE REPTM2⊗↔α⊗↔α-αβDα4αXABORT⊗↔αβ⊗↓
αXDEFINE RPNM5A⊗↔
α3α4αXIFEQ ASCII.⊗↔α9α9αXIFGE CHARS.⊗↔α⊗=α⊗↑αβ3αβ4αXIFEQ ASCII.⊗↔α⊗↔α-αβD
α3αXABORT⊗↔αβ⊗↓
αXDEFINE RPNM5B⊗↔
α6α5αXIFLE ASCII.⊗↔αXSET REPTM2=ASCII.⊗↔α3α2αXREMAINDER REPTM2⊗↔αXIFLE R
EPTM2⊗↔α2α6αXIFGE REPTM2⊗↔α-αβDα3αXABORT⊗↔αβ⊗↓
αXDEFINE RPNM6A⊗↔
αXSET RPDFLT⊗↔αZRPNM6C⊗↔αXSET REPTMP=LINE.⊗↔αCαEαLαXEMPTY⊗↔α+α0αXSSLINE⊗↔
αLαXARGUMENT REPTMP⊗↔αZRPNM6D⊗↔αXARGUMENT REPTMP⊗↔αLαβDαZRPNM6B⊗↔αβ⊗↓
αXDEFINE RPNM6B⊗↔
αXIFNE RPDFLT⊗↔α+αXSSLINE⊗↔αXSTOPZERO⊗↔⊗↔⊗↑αF@⊗↔αXSTOPONE⊗↔αXIFNE NFOUND
.⊗↔⊗↔αXATTACH RPHOST⊗↔αE⊗↑αXJOIN⊗↔αβ⊗↓
αXDEFINE RPNM6C⊗↔
α+αXSSLINE⊗↔⊗↔⊗↑αF@⊗↔αXBREAK SRCHAR.⊗↔⊗↔α1αXREDEFINE RPHOST⊗↔⊗↑αXJOIN⊗↔αX
ADD RPDFLT⊗↔α2αXABORT⊗↔αβ⊗↓
αXDEFINE RPNM6D⊗↔
αF⊗↓≡⊗↔ReSent-From:⊗↓⊗↔⊗↔αZRFC822⊗↔α#αL⊗↔αEα-αβDα2αZREPNM0⊗↔α#αXSET REPT
MP⊗↔αZRPNM6C⊗↔αβ⊗↓
αXDEFINE RPRPTO⊗↔
0αβ⊗↓
αXDEFINE RPSN1A⊗↔
αXARGUMENT REPLN2⊗↔αLα+αXSSLINE⊗↔⊗↑αXSTOPZERO⊗↔αF⊗↓≡⊗↔Replying-To:⊗↓⊗↔αX
STOPONE⊗↔αXIFNE NFOUND.⊗↔αXSTOPZERO⊗↔⊗↔αXEMPTY⊗↔α+α0αXSSLINE⊗↔α-αXEMPTY⊗↔
αβ*αXSTOPONE⊗↔αXIFNE NFOUND.⊗↔αLαXARGUMENT LINES.⊗↔αXSSLINE⊗↔αXSTOPZERO⊗↔
αβ*αXSTOPONE⊗↔αXIFNE NFOUND.⊗↔αβXSAY⊗↔αβXSAY Sorry -- Can't find the "Re
plying-To" line.⊗↔αZREPLX2⊗↔αβ⊗↓
αXDEFINE RPSN1B⊗↔
α!⊗↔α+α2αXSSLINE⊗↔αXSTOPZERO⊗↔αF⊗↓≡⊗↔Reply-Text:≡⊗↔⊗↓⊗↔αXSTOPONE⊗↔αXIFNE
NFOUND.⊗↔αXARGUMENT REPLN2⊗↔αLαXARGUMENT LINES.⊗↔αXSSLINE⊗↔αXSTOPZERO⊗↔
αβ*αXSTOPONE⊗↔αXIFNE NFOUND.⊗↔αβXSAY⊗↔αβXSAY Sorry -- Can't find the "Re
ply-Text" line.⊗↔αZREPLX2⊗↔αβ⊗↓
αXDEFINE RPSN1C⊗↔
αZRPSN1D⊗↔αβ⊗↓
αXDEFINE RPSN1D⊗↔
⊗↔α+αXSSLINE⊗↔⊗↑αXSTOPZERO⊗↔αXSET REPTMP⊗↔αF⊗↓≡⊗↔Also-To:⊗↓⊗↔αXARGUMENT
NFOUND.⊗↔αXADD REPTMP⊗↔αF⊗↓≡⊗↔Reply-cc:⊗↓⊗↔αXARGUMENT NFOUND.⊗↔αXADD REP
TMP⊗↔αF⊗↓≡⊗↔Reply-Subject:⊗↓⊗↔αXARGUMENT NFOUND.⊗↔αXADD REPTMP⊗↔⊗↔αXSTOP
ONE⊗↔αXIFEQ REPTMP⊗↔α0αXNONEMPTY⊗↔αβXSAY⊗↔αβXSAY Sorry -- This line does
n't seem to belong in the reply header.⊗↔αZREPLX2⊗↔αβ⊗↓
αXDEFINE RPSN2A⊗↔
⊗↑αβ*⊗↔α+αAαβ⊗↓
αXDEFINE RPSN2B⊗↔
αXIFLT REPTMP⊗↔⊗↔α1αβ⊗↔/ccαβUαXJOIN⊗↔αβ⊗↓
αXDEFINE RPSN2C⊗↔
αF:αβ\ ⊗↔αXBREAK SRCHAR.⊗↔αβDαXINDENT -9999⊗↔αXINDENT 1⊗↔αF αβ\,⊗↔⊗↔αβ⊗↓
αXDEFINE RPSN2D⊗↔
αXARGUMENT REPLIN⊗↔αXSSLINE⊗↔αF⊗↓≡⊗↔Reply-Subject:⊗↓⊗↔⊗↔αF:αβ\ ⊗↔αXBREAK
SRCHAR.⊗↔αβDαXINDENT -9999⊗↔αAαXSUBTRACT REPLIN⊗↔αXARGUMENT REPLIN⊗↔αLαX
NONEMPTY⊗↔αEαXARGUMENT REPLN2⊗↔αLαFMAILαβ\MAIL/SUBJ⊗↔αβ⊗↓
αXDEFINE RPSN3C⊗↔
αXIFNE REPLW⊗↔αXCANCEL⊗↔αβ⊗↓
αXDEFINE SYM⊗↔
}αb α αi{\it α⊗=αβ⊗↓
αXDEFINE SYMB⊗↔
α⊗→αi{\it α⊗=}αβ⊗↓
αXDEFINE T⊗↔
αhαβ∞αβlαeβ⊗↔αhαxcan⊗↔αβ⊗↓
αXDEFINE TASK⊗↔
αβεtasks[1,jmc]/2p/∞l⊗↔αβeβ⊗↔αhαβ⊗↓
αXDEFINE TEMP1⊗↔
αXEXECUTE EINIT.CMD[1,3](17)⊗↔αZname⊗↔αβ⊗↓
αXDEFINE TOLIST⊗↔
αZRENTRY⊗↔αZTOLST0⊗↔αZEXIT2⊗↔αβ⊗↓
αXDEFINE TOLST0⊗↔
αZRPSN1A⊗↔⊗↔⊗↔αZTOLST1⊗↔α-αβDαZREXIT1⊗↔αβ⊗↓
αXDEFINE TOLST1⊗↔
α+αXSSLINE⊗↔αXSTOPZERO⊗↔αFAlso-To:αβ\Replying-To:⊗↔αXSTOPONE⊗↔αXIFNE NSU
BST.⊗↔αXSTOPZERO⊗↔αFReply-cc:αβ\Replying-To:⊗↔αXSTOPONE⊗↔αXIFNE NSUBST.⊗↔
αβXSAY Sorry -- Line after "Replying-To" isn't an address line.⊗↔⊗↑αZREP
LX2⊗↔αβ⊗↓
αXDEFINE VOTE⊗↔
αs,αdαs αk⊗↔αb αl⊗↔⊗↔αβ⊗↓
αXDEFINE ∩⊗↔
αcαh⊗↔αeα↑⊗=⊗=αdαβ⊗↓
αXDEFINE ∪⊗↔
αεmsg.msg[1,jmc]/∞p⊗↔αβ⊗↓
αXDEFINE ≡⊗↔
αxpo⊗↔αxreadw⊗↔αβ⊗↓
αXDEFINE $⊗↔
αi α⊗↑αb αi({eq αs αdβ}β)αβ⊗↓
αXDEFINE %⊗↔
αZRENTRY⊗↔αZREPSN0⊗↔αZEXIT2⊗↔αβ⊗↓
αXDEFINE 1985⊗↔
αβλ1985.xgp[up,doc]/3p⊗↔αβ⊗↓
αXDEFINE 1986⊗↔
αβλ1986.xgp[up,doc]/3p⊗↔αβ⊗↓
αXDEFINE 1987⊗↔
αβλ1987.xgp[up,doc]/3p⊗↔αβ⊗↓
αXDEFINE 1988⊗↔
αβλ1988.xgp[up,doc]/3p⊗↔αβ⊗↓